perm filename FOR.DO[S1,ALS] blob sn#438977 filedate 1979-05-09 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	G ucFOR1[dmp,S1]↔
C00003 ENDMK
C⊗;
G ucFOR1[dmp,S1]↔
C 128↔
S↔
?F.for↔
?F.LST↔
?F.ERR↔
?F.UCO↔
END↔
DO FOR[FOR,S1(2)↔?F↔
|
type ?F.ERR↔
DO FOR[FOR,S1(3)↔?F↔
|
ru soX[dmp,s1↔
?F.UCO[FOR,S1]↔
?F.PS1↔
?F.LDI↔
END↔
DO FOR[FOR,S1(4)↔?F↔
|
R FSIM;PASSIX.LDI[LIB,S1],R1.LDI[lib,S1],R2.LDI[lib,S1],?F.LDI,numer1.LDI[LIB,S1]↔
αg